home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)woc iii 85.d64
/
1541 saver.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
1KB
|
23 lines
10 :
20 REM*** THIS ROUTINE WILL PREVENT *** *** THE DISK HEAD FROM ***
30 REM*** CHATTERING AGAINST THE *** *** STOP IN THE DRIVE WHEN IT ***
40 REM*** IS LOADING A PROGRAM FROM *** *** A DOS PROTECTED DISK. ***
50 :
60 REM*** ALTHOUGH THE DOS *** *** PROTECTION SCHEME IS USED ***
70 REM*** FREQUENTLY ON DISKS NOW, *** *** CONTINUAL BANGING OF THE ***
80 REM*** READ/WRITE HEAD AGAINST *** *** THE STOP IS BOUND TO ***
90 REM*** HASTEN MISALINEMENT OF *** *** THE HEAD. THIS PROGRAM ***
91 REM*** SHOULD BE RUN FIRST, AND *** *** THEN LOAD AND RUN THE DOS ***
92 REM*** PROTECTED DISK. ***
93 :
94 REM*** TA-DA!! NO CHATTER! ***
95 :
96 REM*** THANKS TO GILBERT HELLAND *** *** FOR DISCOVERING THIS, AND ***
97 REM*** ESPECIALLY FOR SHARING IT *** *** US. ***
98 REM*** BOB COKEL, 906 W 6TH AVE *** *** MONMOUTH, ILL, USA 61462 ***
99 :
100 POKE53280,0:POKE53281,0:PRINT"[147]":PRINTTAB(5)"1541 SAVER BY BOB COKEL"
110 PRINT"[144]O[208]15,8,15:P[210]15,"CHR$(34)"M-W"CHR$(34)";C[200](106)C[200](0)C[200](1)C[200](133):CL[207]15
120 [153]"OPEN":[151]631,13:[151]198,1:[128]
140 [143]?"O(null)15,8,15,"CHR$(34)"M-W"CHR$(34)";CLEFT$(106)CLEFT$(0)CLEFT$(1)CLEFT$(133):CL(null)15